home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-desktop-9.10-i386-PL.iso / casper / filesystem.squashfs / usr / share / defoma / libdefoma-user2.pl < prev    next >
Encoding:
Text File  |  2006-06-17  |  927 b   |  36 lines
  1. sub user_update {
  2.     my @apps = &Debian::Defoma::Configure::get_apps();
  3.  
  4.     unless (@apps) {
  5.     user_update_message("No application is ready for userlevel font ",
  6.                 "autoconfiguration.");
  7.     return;
  8.     }
  9.     
  10.     user_update_message("Following applications are ready for userlevel font ",
  11.             "autoconfiguration: @apps.");
  12.     
  13.     foreach my $app (@apps) {
  14.     my $appinfo = &Debian::Defoma::Configure::get_app_info($app);
  15.  
  16.     my $ch = $appinfo->{script_change};
  17.     if ($ch eq 'new') {
  18.         my $r = user_update_question(" $app is not configured for ",
  19.                      USERLOGIN, ". ",
  20.                      "Do you want to configure? ");
  21.  
  22.         if ($r) {
  23.         user_update_invoke("update", $app);
  24.         }
  25.     } elsif ($ch eq 'updated') {
  26.         user_update_invoke("update", $app);
  27.     } elsif ($ch eq 'obsoleted') {
  28.         user_update_invoke("purge", $app);
  29.     } elsif ($ch eq 'same') {
  30.         user_update_message("font configuration for $app is up-to-date.");
  31.     }
  32.     }
  33. }
  34.  
  35. 1;
  36.